razeni sloupcu v DBGrid kliknutim na zahlavi

Otázka od: Richard Valny

13. 9. 2002 15:25

Ahoj
v OnTitleClick udalosti DBGridu mam nasledujici kod:
---------
procedure TPobocky.DBGrid1TitleClick(Column: TColumn);
var i:integer;
    pole:String;
begin
try
// tříd §ní podle sloupce
  pole :=Column.FieldName;
  vzestupne := true;
  with DataModule2.PobockyT do
   begin
      DisableControls;
      Active := false;
      SortedByText.Clear;
      SortedByText.Add('['+pole+'] ASC');
      Active := true;
      EnableControls;
   end;
  for i := 0 to DBGrid1.Columns.Count-1 do begin
    if (UpperCase(DBGrid1.Columns[i].FieldName) <> UpperCase(pole))
then
      DBGrid1.Columns[i].Title.Font.Style := []
    else
      DBGrid1.Columns[i].Title.Font.Style := [fsBold];
  end;
except
on E:Exception do ShowMessage('Chyba: '+E.Message);
end;
end;
----------
funguje tak, ze polozka dle ktere se tridi je v zahlavi oznacena tucnym
pismem.
Rad bych
1) na druhe kliknuti na tomtez sloupci otocil trideni (z ASC na DESC) -
zde jsem narazil na to, ze neumim otestovat, zda dany sloupec je jiz
tucny ci nikoliv

2) rad bych pridal sipecku ve styli Exploreru - pri kliknuti se do
zahlavi prida sipecka dle smeru trideni - zde nevim, jak ji tam dostat

3) tabulka je z komponent KADAo a nejak mi u ni nefunguje bookmark.
Nesetkal jste se nekdo s nim?

Dik za pomoc

Richard